home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 90 / CD Actual 90.iso / Software3D / VirtualLight / VLight1.3win32.exe / Examples / Level2 / teapots.vib < prev    next >
Encoding:
Text File  |  2002-10-07  |  12.8 KB  |  250 lines
  1. // VirtuaLight VIB-Structure
  2.  
  3. Camera [ (1, 4, -6.5),(0, 0.1,  0), (0, 1,  0)
  4.          FieldOfView 35  Format(320,240)  FrameAspectRatio 4/3 ]
  5.  
  6. Options [ IrradianceBounceLevel 1 ]
  7.  
  8. SkyLight(90, skyexpression, 1.25)
  9. SunLight(13:10, 0, 0.55)
  10.  
  11. Declare teapot = Solid [
  12. // Rim
  13.    Shape [
  14.       BicubicPatch (BEZIER, 10, 10,
  15.          (1.4, 2.4, 0), (1.4, 2.4, -0.784), (0.784, 2.4, -1.4), (0, 2.4, -1.4),
  16.          (1.3375, 2.53125, 0), (1.3375, 2.53125, -0.749), (0.749, 2.53125, -1.3375), (0, 2.53125, -1.3375),
  17.          (1.4375, 2.53125, 0), (1.4375, 2.53125, -0.805), (0.805, 2.53125, -1.4375), (0, 2.53125, -1.4375),
  18.          (1.5, 2.4, 0), (1.5, 2.4, -0.84), (0.84, 2.4, -1.5), (0, 2.4, -1.5)
  19.       )]
  20.  + Shape [
  21.       BicubicPatch (BEZIER, 10, 10,
  22.          (0, 2.4, -1.4), (-0.784, 2.4, -1.4), (-1.4, 2.4, -0.784), (-1.4, 2.4, 0),
  23.          (0, 2.53125, -1.3375), (-0.749, 2.53125, -1.3375), (-1.3375, 2.53125, -0.749), (-1.3375, 2.53125, 0),
  24.          (0, 2.53125, -1.4375), (-0.805, 2.53125, -1.4375), (-1.4375, 2.53125, -0.805), (-1.4375, 2.53125, 0),
  25.          (0, 2.4, -1.5), (-0.84, 2.4, -1.5), (-1.5, 2.4, -0.84), (-1.5, 2.4, 0)
  26.       )]
  27.  + Shape [
  28.       BicubicPatch (BEZIER, 10, 10,
  29.          (-1.4, 2.4, 0), (-1.4, 2.4, 0.784), (-0.784, 2.4, 1.4), (0, 2.4, 1.4),
  30.          (-1.3375, 2.53125, 0), (-1.3375, 2.53125, 0.749), (-0.749, 2.53125, 1.3375), (0, 2.53125, 1.3375),
  31.          (-1.4375, 2.53125, 0), (-1.4375, 2.53125, 0.805), (-0.805, 2.53125, 1.4375), (0, 2.53125, 1.4375),
  32.          (-1.5, 2.4, 0), (-1.5, 2.4, 0.84), (-0.84, 2.4, 1.5), (0, 2.4, 1.5)
  33.       )]
  34.  + Shape [
  35.       BicubicPatch (BEZIER, 10, 10,
  36.          (0, 2.4, 1.4), (0.784, 2.4, 1.4), (1.4, 2.4, 0.784), (1.4, 2.4, 0),
  37.          (0, 2.53125, 1.3375), (0.749, 2.53125, 1.3375), (1.3375, 2.53125, 0.749), (1.3375, 2.53125, 0),
  38.          (0, 2.53125, 1.4375), (0.805, 2.53125, 1.4375), (1.4375, 2.53125, 0.805), (1.4375, 2.53125, 0),
  39.          (0, 2.4, 1.5), (0.84, 2.4, 1.5), (1.5, 2.4, 0.84), (1.5, 2.4, 0)
  40.       )]
  41. // Body
  42.  + Shape [
  43.       BicubicPatch (BEZIER, 10, 10,
  44.          (1.5, 2.4, 0), (1.5, 2.4, -0.84), (0.84, 2.4, -1.5), (0, 2.4, -1.5),
  45.          (1.75, 1.875, 0), (1.75, 1.875, -0.98), (0.98, 1.875, -1.75), (0, 1.875, -1.75),
  46.          (2, 1.35, 0), (2, 1.35, -1.12), (1.12, 1.35, -2), (0, 1.35, -2),
  47.          (2, 0.9, 0), (2, 0.9, -1.12), (1.12, 0.9, -2), (0, 0.9, -2)
  48.       )]
  49.  + Shape [
  50.       BicubicPatch (BEZIER, 10, 10,
  51.          (0, 2.4, -1.5), (-0.84, 2.4, -1.5), (-1.5, 2.4, -0.84), (-1.5, 2.4, 0),
  52.          (0, 1.875, -1.75), (-0.98, 1.875, -1.75), (-1.75, 1.875, -0.98), (-1.75, 1.875, 0),
  53.          (0, 1.35, -2), (-1.12, 1.35, -2), (-2, 1.35, -1.12), (-2, 1.35, 0),
  54.          (0, 0.9, -2), (-1.12, 0.9, -2), (-2, 0.9, -1.12), (-2, 0.9, 0)
  55.       )]
  56.  + Shape [
  57.       BicubicPatch (BEZIER, 10, 10,
  58.          (-1.5, 2.4, 0), (-1.5, 2.4, 0.84), (-0.84, 2.4, 1.5), (0, 2.4, 1.5),
  59.          (-1.75, 1.875, 0), (-1.75, 1.875, 0.98), (-0.98, 1.875, 1.75), (0, 1.875, 1.75),
  60.          (-2, 1.35, 0), (-2, 1.35, 1.12), (-1.12, 1.35, 2), (0, 1.35, 2),
  61.          (-2, 0.9, 0), (-2, 0.9, 1.12), (-1.12, 0.9, 2), (0, 0.9, 2)
  62.       )]
  63.  + Shape [
  64.       BicubicPatch (BEZIER, 10, 10,
  65.          (0, 2.4, 1.5), (0.84, 2.4, 1.5), (1.5, 2.4, 0.84), (1.5, 2.4, 0),
  66.          (0, 1.875, 1.75), (0.98, 1.875, 1.75), (1.75, 1.875, 0.98), (1.75, 1.875, 0),
  67.          (0, 1.35, 2), (1.12, 1.35, 2), (2, 1.35, 1.12), (2, 1.35, 0),
  68.          (0, 0.9, 2), (1.12, 0.9, 2), (2, 0.9, 1.12), (2, 0.9, 0)
  69.       )]
  70.  + Shape [
  71.       BicubicPatch (BEZIER, 10, 10,
  72.          (2, 0.9, 0), (2, 0.9, -1.12), (1.12, 0.9, -2), (0, 0.9, -2),
  73.          (2, 0.45, 0), (2, 0.45, -1.12), (1.12, 0.45, -2), (0, 0.45, -2),
  74.          (1.5, 0.225, 0), (1.5, 0.225, -0.84), (0.84, 0.225, -1.5), (0, 0.225, -1.5),
  75.          (1.5, 0.15, 0), (1.5, 0.15, -0.84), (0.84, 0.15, -1.5), (0, 0.15, -1.5)
  76.       )]
  77.  + Shape [
  78.       BicubicPatch (BEZIER, 10, 10,
  79.          (0, 0.9, -2), (-1.12, 0.9, -2), (-2, 0.9, -1.12), (-2, 0.9, 0),
  80.          (0, 0.45, -2), (-1.12, 0.45, -2), (-2, 0.45, -1.12), (-2, 0.45, 0),
  81.          (0, 0.225, -1.5), (-0.84, 0.225, -1.5), (-1.5, 0.225, -0.84), (-1.5, 0.225, 0),
  82.          (0, 0.15, -1.5), (-0.84, 0.15, -1.5), (-1.5, 0.15, -0.84), (-1.5, 0.15, 0)
  83.       )]
  84.  + Shape [
  85.       BicubicPatch (BEZIER, 10, 10,
  86.          (-2, 0.9, 0), (-2, 0.9, 1.12), (-1.12, 0.9, 2), (0, 0.9, 2),
  87.          (-2, 0.45, 0), (-2, 0.45, 1.12), (-1.12, 0.45, 2), (0, 0.45, 2),
  88.          (-1.5, 0.225, 0), (-1.5, 0.225, 0.84), (-0.84, 0.225, 1.5), (0, 0.225, 1.5),
  89.          (-1.5, 0.15, 0), (-1.5, 0.15, 0.84), (-0.84, 0.15, 1.5), (0, 0.15, 1.5)
  90.       )]
  91.  + Shape [
  92.       BicubicPatch (BEZIER, 10, 10,
  93.          (0, 0.9, 2), (1.12, 0.9, 2), (2, 0.9, 1.12), (2, 0.9, 0),
  94.          (0, 0.45, 2), (1.12, 0.45, 2), (2, 0.45, 1.2), (2, 0.45, 0),
  95.          (0, 0.225, 1.5), (0.84, 0.225, 1.5), (1.5, 0.225, 0.84), (1.5, 0.225, 0),
  96.          (0, 0.15, 1.5), (0.84, 0.15, 1.5), (1.5, 0.15, 0.84), (1.5, 0.15, 0)
  97.       )]
  98. // Handle
  99.  + Shape [
  100.       BicubicPatch (BEZIER, 10, 10,
  101.          (-1.6, 2.025, 0), (-1.6, 2.025, -0.3), (-1.5, 2.25, -0.3), (-1.5, 2.25, 0),
  102.          (-2.3, 2.025, 0), (-2.3, 2.025, -0.3), (-2.5, 2.25, -0.3), (-2.5, 2.25, 0),
  103.          (-2.7, 2.025, 0), (-2.7, 2.025, -0.3), (-3, 2.25, -0.3), (-3, 2.25, 0),
  104.          (-2.7, 1.8, 0), (-2.7, 1.8, -0.3), (-3, 1.8, -0.3), (-3, 1.8, 0)
  105.       )]
  106.  + Shape [
  107.       BicubicPatch (BEZIER, 10, 10,
  108.          (-1.5, 2.25, 0), (-1.5, 2.25, 0.3), (-1.6, 2.025, 0.3), (-1.6, 2.025, 0),
  109.          (-2.5, 2.25, 0), (-2.5, 2.25, 0.3), (-2.3, 2.025, 0.3), (-2.3, 2.025, 0),
  110.          (-3, 2.25, 0), (-3, 2.25, 0.3), (-2.7, 2.025, 0.3), (-2.7, 2.025, 0),
  111.          (-3, 1.8, 0), (-3, 1.8, 0.3), (-2.7, 1.8, 0.3), (-2.7, 1.8, 0)
  112.       )]
  113.  + Shape [
  114.       BicubicPatch (BEZIER, 10, 10,
  115.          (-2.7, 1.8, 0), (-2.7, 1.8, -0.3), (-3, 1.8, -0.3), (-3, 1.8, 0),
  116.          (-2.7, 1.575, 0), (-2.7, 1.575, -0.3), (-3, 1.35, -0.3), (-3, 1.35, 0),
  117.          (-2.5, 1.125, 0), (-2.5, 1.125, -0.3), (-2.65, 0.9375, -0.3), (-2.65, 0.9375, 0),
  118.          (-2, 0.9, 0), (-2, 0.9, -0.3), (-1.9, 0.6, -0.3), (-1.9, 0.6, 0)
  119.       )]
  120.  + Shape [
  121.       BicubicPatch (BEZIER, 10, 10,
  122.          (-3, 1.8, 0), (-3, 1.8, 0.3), (-2.7, 1.8, 0.3), (-2.7, 1.8, 0),
  123.          (-3, 1.35, 0), (-3, 1.35, 0.3), (-2.7, 1.575, 0.3), (-2.7, 1.575, 0),
  124.          (-2.65, 0.9375, 0), (-2.65, 0.9375, 0.3), (-2.5, 1.125, 0.3), (-2.5, 1.125, 0),
  125.          (-1.9, 0.6, 0), (-1.9, 0.6, 0.3), (-2, 0.9, 0.3), (-2, 0.9, 0)
  126.       )]
  127. // Spout
  128.  + Shape [
  129.       BicubicPatch (BEZIER, 10, 10,
  130.          (1.7, 1.425, 0), (1.7, 1.425, -0.66), (1.7, 0.6, -0.66), (1.7, 0.6, 0),
  131.          (2.6, 1.425, 0), (2.6, 1.425, -0.66), (3.1, 0.825, -0.66), (3.1, 0.825, 0),
  132.          (2.3, 2.1, 0), (2.3, 2.1, -0.25), (2.4, 2.025, -0.25), (2.4, 2.025, 0),
  133.          (2.7, 2.4, 0), (2.7, 2.4, -0.25), (3.3, 2.4, -0.25), (3.3, 2.4, 0)
  134.       )]
  135.  + Shape [
  136.       BicubicPatch (BEZIER, 10, 10,
  137.          (1.7, 0.6, 0), (1.7, 0.6, 0.66), (1.7, 1.425, 0.66), (1.7, 1.425, 0),
  138.          (3.1, 0.825, 0), (3.1, 0.825, 0.66), (2.6, 1.425, 0.66), (2.6, 1.425, 0),
  139.          (2.4, 2.025, 0), (2.4, 2.025, 0.25), (2.3, 2.1, 0.25), (2.3, 2.1, 0),
  140.          (3.3, 2.4, 0), (3.3, 2.4, 0.25), (2.7, 2.4, 0.25), (2.7, 2.4, 0)
  141.       )]
  142.  + Shape [
  143.       BicubicPatch (BEZIER, 10, 10,
  144.          (2.7, 2.4, 0), (2.7, 2.4, -0.25), (3.3, 2.4, -0.25), (3.3, 2.4, 0),
  145.          (2.8, 2.475, 0), (2.8, 2.475, -0.25), (3.525, 2.49375, -0.25), (3.525, 2.49375, 0),
  146.          (2.9, 2.475, 0), (2.9, 2.475, -0.15), (3.45, 2.5125, -0.15), (3.45, 2.5125, 0),
  147.          (2.8, 2.4, 0), (2.8, 2.4, -0.15), (3.2, 2.4, 0), (3.2, 2.4, 0)
  148.       )]
  149.  + Shape [
  150.       BicubicPatch (BEZIER, 10, 10,
  151.          (3.3, 2.4, 0), (3.3, 2.4, 0.25), (2.7, 2.4, 0.25), (2.7, 2.4, 0),
  152.          (3.525, 2.49375, 0), (3.525, 2.49375, 0.25), (2.8, 2.475, 0.25), (2.8, 2.475, 0),
  153.          (3.45, 2.5125, 0), (3.45, 2.5125, 0.15), (2.9, 2.475, 0.15), (2.9, 2.475, 0),
  154.          (3.2, 2.4, 0), (3.2, 2.4, 0.15), (2.8, 2.4, 0.15), (2.8, 2.4, 0)
  155.       )]
  156. // Lid
  157.  + Shape [
  158.       BicubicPatch (BEZIER, 10, 10,
  159.          (0, 3.15, 0), (0, 3.15, 0), (0, 3.15, 0), (0, 3.15, 0),
  160.          (0.8, 3.15, 0), (0.8, 3.15, -0.45), (0.45, 3.15, -0.8), (0, 3.15, -0.8),
  161.          (0, 2.85, 0), (0, 2.85, 0), (0, 2.85, 0), (0, 2.85, 0),
  162.          (0.2, 2.7, 0), (0.2, 2.7, -0.112), (0.112, 2.7, -0.2), (0, 2.7, -0.2)
  163.       )]
  164.  + Shape [
  165.       BicubicPatch (BEZIER, 10, 10,
  166.          (0, 3.15, 0), (0, 3.15, 0), (0, 3.15, 0), (0, 3.15, 0),
  167.          (0, 3.15, -0.8), (-0.45, 3.15, -0.8), (-0.8, 3.15, -0.45), (-0.8, 3.15, 0),
  168.          (0, 2.85, 0), (0, 2.85, 0), (0, 2.85, 0), (0, 2.85, 0),
  169.          (0, 2.7, -0.2), (-0.112, 2.7, -0.2), (-0.2, 2.7, -0.112), (-0.2, 2.7, 0)
  170.       )]
  171.  + Shape [
  172.       BicubicPatch (BEZIER, 10, 10,
  173.          (0, 3.15, 0), (0, 3.15, 0), (0, 3.15, 0), (0, 3.15, 0),
  174.          (-0.8, 3.15, 0), (-0.8, 3.15, 0.45), (-0.45, 3.15, 0.8), (0, 3.15, 0.8),
  175.          (0, 2.85, 0), (0, 2.85, 0), (0, 2.85, 0), (0, 2.85, 0),
  176.          (-0.2, 2.7, 0), (-0.2, 2.7, 0.112), (-0.112, 2.7, 0.2), (0, 2.7, 0.2)
  177.       )]
  178.  + Shape [
  179.       BicubicPatch (BEZIER, 10, 10,
  180.          (0, 3.15, 0), (0, 3.15, 0), (0, 3.15, 0), (0, 3.15, 0),
  181.          (0, 3.15, 0.8), (0.45, 3.15, 0.8), (0.8, 3.15, 0.45), (0.8, 3.15, 0),
  182.          (0, 2.85, 0), (0, 2.85, 0), (0, 2.85, 0), (0, 2.85, 0),
  183.          (0, 2.7, 0.2), (0.112, 2.7, 0.2), (0.2, 2.7, 0.112), (0.2, 2.7, 0)
  184.       )]
  185.  + Shape [
  186.       BicubicPatch (BEZIER, 10, 10,
  187.          (0.2, 2.7, 0), (0.2, 2.7, -0.112), (0.112, 2.7, -0.2), (0, 2.7, -0.2),
  188.          (0.4, 2.55, 0), (0.4, 2.55, -0.224), (0.224, 2.55, -0.4), (0, 2.55, -0.4),
  189.          (1.3, 2.55, 0), (1.3, 2.55, -0.728), (0.728, 2.55, -1.3), (0, 2.55, -1.3),
  190.          (1.3, 2.4, 0), (1.3, 2.4, -0.728), (0.728, 2.4, -1.3), (0, 2.4, -1.3)
  191.       )]
  192.  + Shape [
  193.       BicubicPatch (BEZIER, 10, 10,
  194.          (0, 2.7, -0.2), (-0.112, 2.7, -0.2), (-0.2, 2.7, -0.112), (-0.2, 2.7, 0),
  195.          (0, 2.55, -0.4), (-0.224, 2.55, -0.4), (-0.4, 2.55, -0.224), (-0.4, 2.55, 0),
  196.          (0, 2.55, -1.3), (-0.728, 2.55, -1.3), (-1.3, 2.55, -0.728), (-1.3, 2.55, 0),
  197.          (0, 2.4, -1.3), (-0.728, 2.4, -1.3), (-1.3, 2.4, -0.728), (-1.3, 2.4, 0)
  198.       )]
  199.  + Shape [
  200.       BicubicPatch (BEZIER, 10, 10,
  201.          (-0.2, 2.7, 0), (-0.2, 2.7, 0.112), (-0.112, 2.7, 0.2), (0, 2.7, 0.2),
  202.          (-0.4, 2.55, 0), (-0.4, 2.55, 0.224), (-0.224, 2.55, 0.4), (0, 2.55, 0.4),
  203.          (-1.3, 2.55, 0), (-1.3, 2.55, 0.728), (-0.728, 2.55, 1.3), (0, 2.55, 1.3),
  204.          (-1.3, 2.4, 0), (-1.3, 2.4, 0.728), (-0.728, 2.4, 1.3), (0, 2.4, 1.3)
  205.       )]
  206.  + Shape [
  207.       BicubicPatch (BEZIER, 10, 10,
  208.          (0, 2.7, 0.2), (0.112, 2.7, 0.2), (0.2, 2.7, 0.112), (0.2, 2.7, 0),
  209.          (0, 2.55, 0.4), (0.224, 2.55, 0.4), (0.4, 2.55, 0.224), (0.4, 2.55, 0),
  210.          (0, 2.55, 1.3), (0.728, 2.55, 1.3), (1.3, 2.55, 0.728), (1.3, 2.55, 0),
  211.          (0, 2.4, 1.3), (0.728, 2.4, 1.3), (1.3, 2.4, 0.728), (1.3, 2.4, 0)
  212.       )]
  213. // Bottom
  214.  + Shape [
  215.       BicubicPatch (BEZIER, 10, 10,
  216.          (0, 0, 0), (0, 0, 0), (0, 0, 0), (0, 0, 0),
  217.          (1.425, 0, 0), (1.425, 0, 0.798), (0.798, 0, 1.425), (0, 0, 1.425),
  218.          (1.5, 0.075, 0), (1.5, 0.075, 0.84), (0.84, 0.075, 1.5), (0, 0.075, 1.5),
  219.          (1.5, 0.15, 0), (1.5, 0.15, 0.84), (0.84, 0.15, 1.5), (0, 0.15, 1.5)
  220.       )]
  221.  + Shape [
  222.       BicubicPatch (BEZIER, 10, 10,
  223.          (0, 0, 0), (0, 0, 0), (0, 0, 0), (0, 0, 0),
  224.          (0, 0, 1.425), (-0.798, 0, 1.425), (-1.425, 0, 0.798), (-1.425, 0, 0),
  225.          (0, 0.075, 1.5), (-0.84, 0.075, 1.5), (-1.5, 0.075, 0.84), (-1.5, 0.075, 0),
  226.          (0, 0.15, 1.5), (-0.84, 0.15, 1.5), (-1.5, 0.15, 0.84), (-1.5, 0.15, 0)
  227.       )]
  228.  + Shape [
  229.       BicubicPatch (BEZIER, 10, 10,
  230.          (0, 0, 0), (0, 0, 0), (0, 0, 0), (0, 0, 0),
  231.          (-1.425, 0, 0), (-1.425, 0, -0.798), (-0.798, 0, -1.425), (0, 0, -1.425),
  232.          (-1.5, 0.075, 0), (-1.5, 0.075, -0.84), (-0.84, 0.075, -1.5), (0, 0.075, -1.5),
  233.          (-1.5, 0.15, 0), (-1.5, 0.15, -0.84), (-0.84, 0.15, -1.5), (0, 0.15, -1.5)
  234.       )]
  235.  + Shape [
  236.       BicubicPatch (BEZIER, 10, 10,
  237.          (0, 0, 0), (0, 0, 0), (0, 0, 0), (0, 0, 0),
  238.          (0, 0, -1.425), (0.798, 0, -1.425), (1.425, 0, -0.798), (1.425, 0, 0),
  239.          (0, 0.075, -1.5), (0.84, 0.075, -1.5), (1.5, 0.075, -0.84), (1.5, 0.075, 0),
  240.          (0, 0.15, -1.5), (0.84, 0.15, -1.5), (1.5, 0.15, -0.84), (1.5, 0.15, 0)
  241.       )]
  242. ]
  243.  
  244. teapot [ Rotate(0, 20, 0)   Scale(0.4, 0.4, 0.4)                         Shader [ MetallicTP [ Color '.99, 1, .94' ] ] ]
  245. teapot [ Rotate(0, -30, 0)  Scale(0.4, 0.4, 0.4) Translate(-1, 0, -2.5)  Shader [ MetallicTP [ Color '.933333, .866667, .509804' ] ] ]
  246. teapot [ Rotate(0, 150, 0)  Scale(0.4, 0.4, 0.4) Translate(2, 0, 3)      Shader [ MetallicTP [ Color '.99, .97, 1' ] ] ]
  247. teapot [ Rotate(0, -160, 0) Scale(0.4, 0.4, 0.4) Translate(-2.2, 0, 2.8) Shader [ MetallicTP [ Color '.792157, .882353, 1' ] ] ]
  248.  
  249. Shape [ Disk ((0, 0, 0), (0, 1, 0), 1000) Ground ]
  250.